Option Explicit
Sub Q_Sample028()
    ']wޥζMicrosoft Internet Controls
    ']wޥζMicrosoft HTML Object Library
    Dim myIE      As InternetExplorer
    Dim myDoc     As MSHTML.HTMLDocument
    Dim myImg     As MSHTML.HTMLImg
    Dim mySiteUrl As String
    Dim i         As Long
    mySiteUrl = "http://www.yahoo.co.jp"                      'NURL
    Set myIE = New InternetExplorer
    With myIE
        .Navigate mySiteUrl
        Do While .Busy
        Loop
        Do Until .ReadyState = READYSTATE_COMPLETE
        Loop
        Set myDoc = .Document
    End With
    i = 0
    Cells(1, 1).Select
    With myDoc
        If .frames.Length > 0 Then
            For i = 0 To .frames.Length - 1
                For Each myImg In .frames(i).Document.images
                    With ActiveSheet.Pictures.Insert(myImg.src).BottomRightCell
                        Cells(.Row + 1, 1).Select
                    End With
                Next
            Next
        Else
            For Each myImg In .images
                With ActiveSheet.Pictures.Insert(myImg.src).BottomRightCell
                    Cells(.Row + 1, 1).Select
                End With
            Next
        End If
    End With
    myIE.Quit
    Set myIE = Nothing                                                  '
    Set myDoc = Nothing
End Sub
